home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS05.ADF / IFF / EALstrup.asm < prev    next >
Assembly Source File  |  1986-04-20  |  7KB  |  261 lines
  1.  
  2.    section   text,CODE
  3. * C initial startup procedure under AmigaDOS
  4. * 
  5. * Requirements:
  6.  
  7.    INCLUDE   "exec/types.i"
  8.    INCLUDE "exec/alerts.i"
  9.    INCLUDE "exec/nodes.i"
  10.    INCLUDE "exec/lists.i"
  11.    INCLUDE "exec/ports.i"
  12.    INCLUDE "exec/libraries.i"
  13.    INCLUDE "exec/tasks.i"
  14.    INCLUDE "libraries/dos.i"
  15.    INCLUDE "libraries/dosextens.i"
  16.    INCLUDE "workbench/startup.i"
  17.  
  18. ; some usefull macros:
  19. xlib   macro
  20.    xref   _LVO\1
  21.    endm
  22.  
  23. callsys   macro
  24.    CALLLIB   _LVO\1
  25.    endm
  26.    
  27.  
  28.    xdef   _XCEXIT         * exit(code) is standard way to leave C.
  29.  
  30.    xref   _Debug
  31.    xref   __main         * Name of C program to start with.
  32.    xref   _MemCleanup
  33.    xref   _AbsExecBase
  34.    xref   _FindTask
  35.    xref   _main         * added by robp per EA instructions
  36.    xlib   Alert
  37.    xlib   FindTask
  38.    xlib   Forbid
  39.    xlib   GetMsg
  40.    xlib   OpenLibrary
  41.    xlib   ReplyMsg
  42.    xlib   Wait
  43.    xlib   WaitPort
  44.    xlib   Open
  45.    xlib   Close
  46.    xlib   CurrentDir
  47.  
  48. start:
  49.    move.l   d0,dosCmdLen
  50.    move.l   a0,dosCmdBuf
  51.    move.l   a7,d0         ; save old stack ptr
  52.    movem.l   d1-d6/a0-a6,-(a7)
  53.    move.l   d0,a5
  54.    move.l   _AbsExecBase,a6
  55.    move.l   a6,_SysBase
  56.    move.l   a7,__StackPtr      * Save stack ptr
  57.    clr.l   _WBenchMsg
  58.  
  59. ;------ get the address of our task
  60.    suba.l   a1,a1
  61.    callsys   FindTask
  62.    move.l   d0,a4
  63.  
  64. ;------ are we running as a son of Workbench?
  65.    move.l   pr_CurrentDir(A4),_curdir
  66.    tst.l   pr_CLI(A4)
  67.    beq   fromWorkbench
  68.  
  69. ;=======================================================================
  70. ;====== CLI Startup Code ===============================================
  71. ;=======================================================================
  72.  
  73. fromCLI:
  74.    move.l   a5,D0      ; get top of stack
  75.    sub.l   4(a5),D0   ; compute bottom 
  76.    move.l   D0,__base   ; save for stack checking
  77. ;------   attempt to open DOS library:
  78.    bsr   openDOS
  79.  
  80. ;------ find command name:
  81.    move.l   #start,a0
  82. ;   jsr   _Debug
  83.    clr.l   -(sp)
  84.    jsr   _FindTask
  85.    addq.l   #4,sp
  86.    move.l   d0,a0
  87.    move.l   pr_CLI(a0),a0
  88.    add.l   a0,a0      ; bcpl pointer conversion
  89.    add.l   a0,a0
  90.    move.l   cli_CommandName(a0),a1
  91.    add.l   a1,a1      ; bcpl pointer conversion
  92.    add.l   a1,a1
  93.  
  94. ;------   collect parameters:
  95.    move.l   dosCmdLen,d0      ; get command line length
  96.    moveq.l   #0,d1
  97.    move.b   (a1)+,d1
  98.    move.l   a1,__ProgramName
  99.    add.l   d1,d0         ; add length of command name
  100.    addq.l   #1,d0         ; allow for space after command   
  101.  
  102.    clr.w   -(A7)         ; set null terminator for command line
  103.    addq.l   #1,D0         ; force to even number of bytes
  104.    andi.w   #$fffe,D0      ;(round up)
  105.    sub.l   D0,A7         ; make room on stack for command line
  106.    subq.l   #2,D0
  107.    clr.w   0(A7,D0)
  108.  
  109. ;------ copy command line onto stack
  110.    move.l   dosCmdLen,d0      ; get command line length
  111.    move.l   dosCmdBuf,a0
  112.    move.l   d0,d2
  113.    subq.l   #1,d0
  114.    add.l   d1,d2
  115.  
  116. copy_line:
  117.    move.b   0(A0,D0.W),0(A7,D2.W)   ; copy command line to stack
  118.    subq.l   #1,d2
  119.    dbf   d0,copy_line
  120.    move.b   #' ',0(a7,d2.w)      ; add space between command and parms
  121.    subq.l   #1,d2
  122.  
  123. copy_cmd:
  124.    move.b   0(a1,d2.w),0(a7,d2.w)   ; copy command name to stack
  125.    dbf   d2,copy_cmd
  126.    move.l   A7,A1
  127.    move.l   A1,-(A7)      ; push command line address
  128.    jsr   __main              * call C entrypoint
  129.    moveq.l   #0,d0         ; set successful status
  130.    bra.s   exit2
  131.  
  132. ;=======================================================================
  133. ;====== Workbench Startup Code =========================================
  134. ;=======================================================================
  135.  
  136. fromWorkbench:
  137.  
  138.    move.l   TC_SPLOWER(a4),__base   ; set base of stack
  139. ;------ open the DOS library:
  140.    bsr   openDOS
  141.  
  142. ;------ we are now set up.  wait for a message from our starter
  143.    bsr   waitmsg
  144.    move.l   d0,_WBenchMsg
  145.    move.l   d0,-(SP)
  146. ;
  147.    move.l   d0,a2         ; get first argument
  148.    move.l   sm_ArgList(a2),d0
  149.    beq.s   do_cons
  150.    move.l   _DOSBase,a6
  151.    move.l   d0,a0
  152.    move.l   wa_Lock(a0),d1
  153.    callsys   CurrentDir
  154. do_cons:
  155.    move.l   sm_ToolWindow(a2),d1   ; get the window argument
  156.    beq.s   do_main
  157.    move.l   #MODE_OLDFILE,d2
  158.    callsys   Open
  159.    move.l   d0,stdin
  160.    beq.s   do_main
  161.    lsl.l   #2,d0
  162.    move.l   d0,a0
  163.    move.l   fh_Type(a0),pr_ConsoleTask(A4)
  164. do_main:
  165.    clr.l   -(sp)      *was pea _NULL
  166.    jsr   _main              * call C entrypoint (was jsr __main)
  167.    moveq.l   #0,d0         ; set successful status
  168.    bra.s   exit2
  169. ;
  170.  
  171. _XCEXIT:
  172.    move.l   4(SP),d0   ; extract return code
  173. exit2:
  174.    move.l   d0,-(a7)
  175.    jsr   _MemCleanup      ; cleanup leftover memory alloc.
  176.  
  177. ;------ if we ran from CLI, skip workbench cleanup:
  178.    tst.l   _WBenchMsg
  179.    beq.s   exitToDOS
  180.    move.l   _console_dev,d1
  181.    beq.s   done_2
  182.    callsys   Close
  183. done_2:
  184.    move.l   stdin,d1
  185.    beq.s   done_4
  186.    callsys   Close
  187. done_4:
  188.  
  189. ;------ return the startup message to our parent
  190. ;   we forbid so workbench can't UnLoadSeg() us
  191. ;   before we are done:
  192.    move.l   _AbsExecBase,A6
  193.    callsys Forbid
  194.    move.l   _WBenchMsg,a1
  195.    callsys   ReplyMsg
  196.  
  197. ;------ this rts sends us back to DOS:
  198. exitToDOS:
  199.    MOVE.L   (A7)+,D0
  200.    movea.l  __StackPtr,SP      * restore stack ptr
  201.    movem.l   (a7)+,d1-d6/a0-a6
  202.    rts            * and exit
  203.  
  204. ;-----------------------------------------------------------------------
  205. noDOS:
  206.       ALERT   (AG_OpenLib!AO_DOSLib)
  207.       moveq.l   #100,d0
  208.       bra.s   exit2
  209.  
  210.  
  211. ;-----------------------------------------------------------------------
  212. ; This routine gets the message that workbench will send to us
  213. ; called with task id in A4
  214.  
  215. waitmsg:
  216.       lea   pr_MsgPort(A4),a0     * our process base
  217.       callsys   WaitPort
  218.       lea   pr_MsgPort(A4),a0     * our process base
  219.       callsys GetMsg
  220.       rts
  221.  
  222. ;-----------------------------------------------------------------------
  223. ;  Open the DOS library:
  224.  
  225. openDOS
  226.       lea   DOSName,A1
  227.       moveq.l   #0,D0
  228.       callsys OpenLibrary
  229.       move.l   D0,_DOSBase
  230.       beq   noDOS
  231.       rts
  232.  
  233.    section   data,DATA
  234. ;
  235.    XDEF   _NULL,_DOSBase,_SysBase,_LoadAddress,_console_dev,_WBenchMsg
  236.    XDEF   __mbase,__mnext,__msize,__tsize,__oserr,__fperr,__mstep
  237.    XDEF   __ProgramName,__StackPtr,__base
  238. ;
  239. _NULL   DC.L   0         ;
  240. __base   DC.L   0         ; base of stack
  241. __mbase   DC.L   0         ; base of memory pool
  242. __mnext   DC.L   0         ; next available memory location
  243. __msize   DC.L   0         ; size of memory pool
  244. __mstep   DC.L   1024         ; memory pool step size
  245. __tsize   DC.L   0         ; total size?
  246. __oserr   DC.L   0
  247. __fperr   DC.L   0
  248. _curdir   DC.L   0
  249. _console_dev DC.L 0
  250. _SysBase     DC.L 0
  251. _DOSBase     DC.L 0   
  252. _LoadAddress DC.L 0         ; program load address
  253. _WBenchMsg   dc.l   0
  254. __StackPtr   dc.l   0
  255. dosCmdLen   dc.l   0
  256. dosCmdBuf   dc.l   0
  257. stdin   dc.l   0
  258. __ProgramName   dc.l   0
  259. DOSName    DOSNAME
  260.  
  261.